	/*Stimmt die Skalierung f�r Demokratie und Religion in den 29 Gebieten �berein?*/
	/*Graphische Ausgaben f�r Cronbachs Alpha*/

	set scheme s1manual
	set more off
	
	use turkey,replace
	/*Ausgabe vorbereiten*/
	gen listland=_n in 1/29
	label val listland sortcountry

	sdecode listland ,gen(listlandstr)

	capture drop religalpha
	gen religalpha=.

	forvalues l=1/29 {
		alpha v129 v131 if sortcountry ==`l'
		replace religalpha=r(alpha) in `l'
		}
	

	
	capture drop demoalpha
	gen demoalpha=.

	forvalues l=1/29 {
		alpha v2* if sortcountry ==`l'
		replace demoalpha=r(alpha) in `l'
		}
	

	/*Das gleiche noch mal f�r die Religi�sit�t*/
		capture gen betalpha=.
	forvalues l=1/29 {
		capture alpha v126 rtemp if sortcountry ==`l'
		replace betalpha=r(alpha) in `l'
		}
	
	tab rtemp v126 if sortcountry ==28,gamma row

	/*T�rkei ist auch hier ein Ausrei�er, weil selbst unter denen, die nie zum Gottesdienst gehen, viele t�glich beten*/
	
	/*Grafiken: Religion*/

	graph hbar (asis) religalpha, over(listland,gap(*1.8) sort(1) descending label(labsize(small))) ytitle(Cronbach's Alpha Religion) plotregion(style(none)) ylabel(,nogrid) yline(.7) intensity(30) ylabel(,labsize(medsmall))

	graph rename religalpha,replace
	graph export religalpha.eps, replace fontface(Times)

		graph hbar (asis) demoalpha, over(listland,gap(*1.8) sort(1) descending label(labsize(small))) ytitle(Cronbach's Alpha Demokratie) plotregion(style(none)) ylabel(,nogrid) yline(.7) intensity(30) ylabel(,labsize(medsmall)) 

	graph rename demoalpha,replace
	graph export demoalpha.eps, replace fontface(Times)
	
	pwcorr v2* demokratie if sortcountry ~=28
	pwcorr v2* demokratie if sortcountry ==28

	set more on
